  InstName := 'Chestnut CIA Papers';
  Cls;
  StrRet := InstName;
  DoFunc(0);

GetFrom:
  DoFunc(5);
  Mssg(6,3,'Enter the Drive letter of your CD-ROM drive.');
  DoFunc(11);
  DoFunc(2);
  CDROMDrive := StrRet;
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,2,GetFrom);

GetDrive:
  DoFunc(5);
  Mssg(6,3,'Enter the Drive letter of your harddisk.');
  StrRet := 'C';
  DoFunc(2);
  ToDrive := StrRet;
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,2,GetDrive);

  {Example of the directory name on their hard disk}
  {Should be the same as the directory name stored}
  {in the HR.CDB file}
  ConCat(SysPath,ToDrive,':\CIA');

  StrRet := SysPath;
  DoFunc(6);
  SysPath2 := '';
  ConCat(SysPath2,StrRet,'GO.BAT');

  DoFunc(5);
  Mssg(6,3,'You have specified the following:');
  Uaf := '';
  Concat(Uaf,'- CD-ROM is in Drive ',CDROMDrive,':');
  Mssg(6,5,Uaf);
  Uaf := '';
  Concat(Uaf,'- Install Batch File onto Drive ',SysPath);
  Mssg(6,6,Uaf);

  DoFunc(7);
  DoFunc(5);
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,3,GetFrom);

  IntRet := 1; {If they don't have 101K then don't install}
  DoFunc(4);
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,3,Leaving);

  DoFunc(5);
  Mssg(6,3,'Installing CD-ROM start up batch file now:');

  {Make The Directories Here}
  Mssg(5,21,'Creating Directory...');
  ChDir(CDROMDrive,':');
  ChDir('\CIA\WPS');       {built in directory name on the CD}
  ChDir(ToDrive,':');
  MkDir(SysPath);
  ChDir(SysPath);

  Mssg(5,21,'Creating Batch File...');
  Copy(CDROMDrive,':\HW\GO.BAT');
  StrRet := SysPath;
  DoFunc(6);
  ConCat(StrRet,'GO.BAT');
  DoFunc(18);
  BranchEq(IntRet,0,NextS1);
  Goto Complete;
NextS1:
  StrRet := CDROMDrive;
  Concat(StrRet,':\HW\HRWCD');
  DoFunc(19);
  BranchEq(IntRet,0,NextS2);
  Goto Complete;
NextS2:
  DoFunc(20);

  {PROGMAN Group}
  StrRet := 'Chestnut CIA Papers';
  DoFunc(16);
  BranchEq(IntRet,0,Complete);

  {Program ICON}
  StrRet := CDROMDrive;
  Concat(StrRet,':\HW\HRWCD.EXE');
  Concat(StrRet,',');
  Concat(StrRet,'The CIA Papers');
  DoFunc(17);
  
  Copy(CDROMDrive,':\HW\HRWCD.INI');
  StrRet := SysPath;
  DoFunc(6);
  ConCat(StrRet,'HRWCD.INI');
  DoFunc(18);
  BranchEq(IntRet,0,NextStep1);
  Goto Complete;

NextStep1:
  StrRet := 'Document Path = ';
  Concat(StrRet,CDROMDrive,':\CIA\WPS');
  DoFunc(19);
  BranchEq(IntRet,0,NextStep2);
  Goto Complete;

NextStep2:
  StrRet := 'Graphics Path = ';
  Concat(StrRet,CDROMDrive,':\CIA\BITMAPS');
  DoFunc(19);
  BranchEq(IntRet,0,NextStep3);
  Goto Complete;

NextStep3:
  DoFunc(20);

Complete:
  StrRet := InstName;
  DoFunc(0);
  Mssg(0,0,'Installation Complete');
  Cls;
  Mssg(1,10,'Type GO to begin the CD-ROM document');
  Goto Exit;

Leaving:
  StrRet := InstName;
  DoFunc(0);
  Mssg(0,0,'Installation aborted by User');
  Cls;
  Goto Exit;

Exit:
